آيكون هاي روي دسكتاپ رو مخفي و ظاهر كنيد

کد زیر با ویژوال بیسیک 6 می تواند ایکون های دسکتاپ را مخفی و نشان داد.

کد زیر را در قسمت general    نوشته

Option Explicit
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long

بعد سهتا كامند براي ظاهر كردن آيكون ها مخفي كردن آنها و خروج از فرم را روی فرم قرار دهید

هر کد را در جای خود قرار دهید 

کامند مخفی کردن  
Private Sub cmdDHide_Click()
Dim hWnd As Long
hWnd = FindWindowEx(0&, 0&, "Progman", vbNullString)
ShowWindow hWnd, 0
End Sub'--------------------------------

کامند نشان دادن

Private Sub cmdDShow_Click()

Dim hWnd As Long
hWnd = FindWindowEx(0&, 0&, "Progman", vbNullString)
ShowWindow hWnd, 5
End Sub'---------------------------------

کامند خروج
Private Sub cmdExit_Click()
Me.Hide
End

End Sub'-------------------------------------

نظرات شما عزیزان:

نام :

آدرس ایمیل:

وب سایت/بلاگ :

متن پیام:

نظر خصوصی

 کد را وارد نمایید:

 

 

 

عکس شما

آپلود عکس دلخواه: